home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / actvdemo.dir / 00040.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  2.2 KB  |  87 lines
  1. on LegalButtonHandler
  2.   global gRollover
  3.   set gRollover to 1
  4.   set the visible of sprite 14 to 0
  5.   set lButtonUpName to the name of cast the castNum of sprite the clickOn
  6.   set lButtonDownName to the number of cast "Red"
  7.   set the castNum of sprite the clickOn to the number of cast lButtonDownName
  8.   updateStage()
  9.   repeat while the stillDown = 1
  10.     if rollOver(the clickOn) = 1 then
  11.       set gRollover to 1
  12.       set the castNum of sprite the clickOn to the number of cast lButtonDownName
  13.       updateStage()
  14.       next repeat
  15.     end if
  16.     set gRollover to 0
  17.     set the castNum of sprite the clickOn to the number of cast lButtonUpName
  18.     updateStage()
  19.   end repeat
  20.   if gRollover = 0 then
  21.     exit
  22.   end if
  23.   set the castNum of sprite the clickOn to the number of cast lButtonUpName
  24.   set the visible of sprite 14 to 1
  25.   updateStage()
  26. end
  27.  
  28. on LegalButtonHandler2
  29.   global gRollover
  30.   set gRollover to 1
  31.   set the visible of sprite 17 to 0
  32.   set lButtonUpName to the name of cast the castNum of sprite the clickOn
  33.   set lButtonDownName to the number of cast "Red2"
  34.   set the castNum of sprite the clickOn to the number of cast lButtonDownName
  35.   updateStage()
  36.   repeat while the stillDown = 1
  37.     if rollOver(the clickOn) = 1 then
  38.       set gRollover to 1
  39.       set the castNum of sprite the clickOn to the number of cast lButtonDownName
  40.       updateStage()
  41.       next repeat
  42.     end if
  43.     set gRollover to 0
  44.     set the castNum of sprite the clickOn to the number of cast lButtonUpName
  45.     updateStage()
  46.   end repeat
  47.   if gRollover = 0 then
  48.     exit
  49.   end if
  50.   set the castNum of sprite the clickOn to the number of cast lButtonUpName
  51.   set the visible of sprite 17 to 1
  52.   updateStage()
  53. end
  54.  
  55. on delaySomeTicks howMany
  56.   startTimer()
  57.   repeat while the timer < howMany
  58.     nothing()
  59.   end repeat
  60. end
  61.  
  62. on checkToGo movieType, whichMovie
  63.   global gFlashCount, gNextMovie
  64.   delaySomeTicks(15)
  65.   if gFlashCount = 1 then
  66.     set gNextMovie to whichMovie
  67.     if movieType = "DIR" then
  68.       go("black")
  69.     else
  70.       if movieType = "EXE" then
  71.         go("Black2")
  72.       else
  73.         go("Quit!")
  74.       end if
  75.     end if
  76.   end if
  77. end
  78.  
  79. on blackFrame
  80.   repeat with x = 1 to 48
  81.     set the locV of sprite x to -500
  82.   end repeat
  83.   puppetTransition(50, 0, 12)
  84.   updateStage()
  85.   puppetTransition(0)
  86. end
  87.